home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 February
/
EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso
/
progs
/
editor
/
ged441
/
install
< prev
next >
Wrap
Text File
|
1996-11-23
|
75KB
|
2,122 lines
; $VER: GoldED Install 4, Copyright ©1996 Dietmar Eilert
(delopts "oknodelete" "force" "askuser")
; ------------------------------- Set run mode ---------------------------------
; disable script debug mode
(set golded_install_debug 0)
; ------------------------------ English strings -------------------------------
(if (not (= @language "deutsch"))
(
(set #golded_introduction (cat "\n"
"GoldED 4 · Programmer's Editor \n"
"©1996 Dietmar Eilert \n"
"All Rights Reserved. \n"
" \n"
"GoldED is not freely distributable. Please read \n"
"the licence file before you install the software. \n"
"Information on installing GoldED 4 over GoldED 3 \n"
"can be found in the readme file. \n"
" \n"
"This script supports uninstallation. \n"
))
(set #golded_badkick "\n Sorry, this package requires OS v2.04 or better.\n")
(set #golded_warn_userstartup "\nWARNING: S:USER-STARTUP MISSING")
(set #golded_error (cat
" Some error has occurred. Please inform a GoldED \n"
" support site (e.g. dietmar@tomate.tng.oche.de) \n"
" AFTER having tried a different Installer release:\n"
" 1.24 is known to work fine. \n"
" \n"
" The following information is required: error code\n"
" (above), last error message, the percentage done \n"
" (window title) and your log file. If available: \n"
" a SnoopDos report. Thank you ! \n"
))
(set #golded_assign_found "\nGOLDED installation detected ...\n")
(set #golded_assign_found_help (cat "\n"
" INSTALL NEW: \n"
" \n"
" Install to a directory of your choice. Old GoldED\n"
" installations are NOT removed if you install to a\n"
" new directory. Your old files are overwritten if \n"
" you install over an existing GoldED installation \n"
" (backups are made if requested). \n"
" \n"
" UPDATE EXISTING GOLDED: \n"
" \n"
" You won't be asked for directories: Directories \n"
" of your previous installation are used. Existing \n"
" files are overwritten (backups are made if \n"
" requested). \n"
" \n"
" REMOVE GOLDED: \n"
" \n"
" All files and drawers created by a former GoldED \n"
" installation are removed. Your own files are \n"
" removed, too, if placed in one of GoldED's \n"
" drawers. \n"
))
(set #golded_new "Install new")
(set #golded_update "Update existing GoldED")
(set #golded_remove "Remove GoldED from your system")
(set #golded_ask_amount "\nPlease choose installation mode:\n")
(set #golded_ask_amount_help (cat "\n"
" This decision affects the amount of data written\n"
" to your disk. \n"
))
(set #golded_ask_amount_standard "Complete installation (2.2 MB)")
(set #golded_ask_amount_user "User defined installation")
(set #golded_ask_amount_minimum "Minimum installation (575 K)")
(set #golded_remove_ged "\nRemove GoldED assign ?\n")
(set #golded_remove_hs "\nRemove HiSpeed assign ?\n")
(set #golded_remove_ed "\nRemove quickstarter access ?\n")
(set #golded_remove_gmk "\nRemove GUIMake assign ?\n")
(set #golded_must_remove "You should have this assign/reference removed !")
(set #golded_removed "; (removed)")
(set #golded_lharc "\nExtracting data (can take a few minutes)")
(set #golded_lharcfail "\nCouldn't extract files - check free disk space")
(set #golded_installing_files "\nInstalling files ...")
(set #golded_prepare_install "\nPreparing installation ...")
(set #golded_backup_mode "\nChoose a backup strategy for your old GoldED installation.\n")
(set #golded_backup_mode_help (cat "\n"
" Determines how old files are handled before they \n"
" are overwritten by new files or before they are \n"
" deleted (if considered obsolete). \n"
))
(set #golded_backup_mode_none "No backups")
(set #golded_backup_mode_selected "Backup presets & macros")
(set #golded_backup_mode_all "Backup all files")
(set #golded_pref_icons "\nSelect preferred icon type:\n")
(set #golded_medres " med-res icons (pixel ratio 1:2)")
(set #golded_hires " hi-res icons (pixel ratio 1:1)")
(set #golded_pref_icons_help (cat "\n"
" Select med-res if the pixel ratio of your \n"
" preferred screen resolution is approx. 1:2 \n"
" (e.g.640*200). \n"
" \n"
" Select HiRes if the pixel ratio of your preferred\n"
" screen resolution is approx. 1:1 (eg. 640*400). \n"
))
(set #golded_toolbar_style "\nSelect preferred toolbar style:\n")
(set #golded_toolbar_4 "4 colors")
(set #golded_toolbar_8 "8+ colors")
(set #golded_toolbar_style_help (cat "\n"
" Both styles can be used on all screens. The 4\n"
" color style has been optimized for 4-color \n"
" screens. The 8+ style has been optimized for \n"
" screens with eight or more colors. \n"
))
(set #golded_where (cat
"Select a path for the installation. The drawer \n"
"'GoldED' is created in the directory you select: \n"
))
(set #golded_where_help (cat "\n"
" Simply select a directory (a root directory is \n"
" fine, too). The directory 'GoldED' is created in \n"
" the path you specify. \n"
" \n"
" The GoldED directory is used to store GoldED and \n"
" several support files/tools. \n"
))
(set #golded_bad_path "Sorry, can't install to RAM disk")
(set #golded_drive_space (cat "\n"
" This installation requires at least 5 MB free \n"
" disk space. Please make this space available \n"
" and start again. \n"
))
(set #golded_gold_lib "Installation of golded.library ...")
(set #golded_gold_lib_help (cat "\n"
"This library is required by the demo version only.\n"
"Registered users receive a keyfile instead. \n"
))
(set #golded_select_optional (cat "\n"
"Choose the GoldED components you would like to \n"
"have installed. Installed components are removed \n"
"if unchecked. \n"
))
(set #golded_select_optional_help (cat "\n"
" You shouldn't disable any of these components: \n"
" \n"
" SYNTAX PARSERS (80 K) \n"
" \n"
" A selection of syntax parsers (responsible for \n"
" color-coded text: e-mail, source codes, ...) \n"
" \n"
" HISPEED (300 K) \n"
" \n"
" Printing utility for Laser printers, DeskJet \n"
" printers and other PCL printers. \n"
" \n"
" You may disable any of these components without \n"
" affecting the performance of GoldED: \n"
" \n"
" APPICON STARTER (6 K) \n"
" \n"
" Adds a drag & drop icon to your workbench. Files \n"
" dropped over the icon are sent to GoldED. \n"
" \n"
" RECOVER TOOL (6 K) \n"
" \n"
" Helps you to restore a text lost during a system \n"
" crash. \n"
" \n"
" ORDER TOOL (19 K) \n"
" \n"
" Program to print the GoldED order form. \n"
" \n"
" API CLIENTS (16 K) \n"
" \n"
" Applets for GoldED (examples) \n"
" \n"
" DEVELOPER (520 K) \n"
" \n"
" Developer material (sourcecodes, syntax scanner \n"
" examples, QuickStarter, ...). \n"
" \n"
" MANUAL (290 - 350 K) \n"
" \n"
" GoldED manual (several languages). AmigaGuide \n"
" format. Menu help is not available if you don't \n"
" install a manual written in the same language \n"
" you choose for GoldED's menu. \n"
" \n"
" QUICKSTARTER (5 K) \n"
" \n"
" GoldED frontend: GoldED activator. Can start the \n"
" editor quickly, detach it from a shell window, \n"
" etc. \n"
" \n"
" UNLOCK (1 K) \n"
" \n"
" Utility to unlock GoldED's user interface if a \n"
" faulty macro quits without unlocking GoldED. \n"
" \n"
" ADDITIONAL TOOLBAR ICONS (20 K) \n"
" \n"
" Optional toolbar icons. \n"
))
(set #golded_select_presets "Presets" )
(set #golded_select_parsers "Syntax parsers" )
(set #golded_select_hispeed "HiSpeed" )
(set #golded_select_appicon "AppIcon starter" )
(set #golded_select_recover "Recover utility" )
(set #golded_select_order "Order program" )
(set #golded_select_api "API clients" )
(set #golded_select_sources "Sourcecodes" )
(set #golded_select_manual_e "Manual (English)")
(set #golded_select_manual_d "Manual (German)" )
(set #golded_select_quickstarter "QickStarter" )
(set #golded_select_unlock "UnLock utility" )
(set #golded_update_keyfile (cat "\n"
"You already own a GoldED keyfile. Overwrite your \n"
"old keyfile with the new one ? \n"
))
(set #golded_update_keyfile_help (cat "\n"
" DON'T let this install script overwrite your \n"
" old keyfile unless you know what you do. One \n"
" valid reason would be that you have purchased \n"
" GoldED and know want to have a pirated keyfile \n"
" removed. \n"
))
(set #golded_update_keyfile_overwrite "Overwrite old keyfile")
(set #golded_update_keyfile_keep "Keep old keyfile")
(set #golded_updating_icons "\nUpdating icons ...")
(set #golded_what_manuals "\nWhat manuals do you want to have installed ?\n")
(set #golded_what_manuals_help (cat "\n"
" Each manual (ie. AmigaGuide file) consumes about \n"
" 300K disk space. \n"
))
(set #golded_add_ged_assign "Add GoldED assign to user-startup ?\n")
(set #golded_add_ged_assign_help (cat "\n"
" GoldED needs this assign to find its files \n"
" (libraries, presets, macros). \n"
))
(set #golded_quickname " Choose a name for the QuickStarter:")
(set #golded_quickname_help (cat "\n"
" The QuickStarter is a small (5 KB) GoldED front- \n"
" end. You can use it as if it were a real editor. \n"
" For example you can type 'ed letter' to edit \n"
" the file 'letter' if the QuickStarter is named \n"
" 'ed'. The big advantage of a QuickStarter is its \n"
" ability to pass a new job to a runnning instance \n"
" of GoldED. Additionally, it helps you to start \n"
" GoldED from any directory or to detach GoldED \n"
" from a shell without having to use the RUN \n"
" command. \n"
" \n"
" The default name is 'ED'. Feel free to choose any\n"
" name you like. Personally, I prefer to use 'ED' \n"
" (replacing the original ED). \n"
))
(set #golded_place_quick (cat "\n"
" Select a directory for the QuickStarter (you \n"
" should select a valid command directory): \n"
))
(set #golded_place_quick_help (cat "\n"
" You should select one of these directories if you\n"
" want to run the editor simply by typing its name,\n"
" no matter what your current path is: \n"
" \n"
" SYS:C, SYS:TOOLS, SYS:UTILITIES or SYS:SYSTEM \n"
" \n"
" If you choose ED as default name, you must either\n"
" place the quick starter into c: or delete the old\n"
" ED from c: to prevent unpredictable behaviour. \n"
))
(set #golded_quick_resident "\n Make QuickStarter resident ?\n")
(set #golded_quick_resident_help (cat "\n"
" I would suggest to make the QuickStarter (5 KB) \n"
" resident - it will work faster. \n"
))
(set #golded_saving_files "\nCreating backups (golded:obsolete)")
(set #golded_what_menu "\n Choose default menu definition file:\n")
(set #golded_what_menu_help (cat "\n"
" GoldED is localized and uses the locale library \n"
" of OS 3 to display requester text in the language\n"
" choosen by the user. Menus are not part of the \n"
" editor and not localized. However, the user may \n"
" choose from different menu translations shipped \n"
" with GoldED. \n"
))
(set #golded_screen "\n Choose default screen resolution \n")
(set #golded_screen_help (cat "\n"
" Decide for a default screen mode to be used when \n"
" the editor is started for the first time. We \n"
" suggest to use a custom screen to make GoldED run\n"
" faster and look better. \n"
))
(set #golded_screen_wb "Workbench screen")
(set #golded_screen_ntsc_i "NTSC interlaced (640*400)")
(set #golded_screen_pal_i "PAL interlaced (640*512)")
(set #golded_look_feel "\nLook & feel\n")
(set #golded_look_feel_help (cat "\n"
" Suggestion: use a two-colors mode if your Amiga \n"
" is slow (68000), a four colors mode for 68020 and\n"
" 68030 models (e.g. A1200) and more colors if you \n"
" own a fast Amiga (68040/68060). \n"
))
(set #golded_mode_blue "Blue (2 colors)")
(set #golded_mode_stone "Modern (4 colors)")
(set #golded_mode_desktop "Desktop (8 colors)")
(set #golded_mode_designer "Designer (16 colors)")
(set #golded_what_proglang "\n Select preferred programming language:\n")
(set #golded_what_proglang_other "other")
(set #golded_what_proglang_none "none" )
(set #golded_what_proglang_help (cat "\n"
" This setting affects installation of additional \n"
" language-related features (e.g. syntax parsers). \n"
" All files are installed but only support for the \n"
" language you choose know is made part of your \n"
" default configuration. \n"
))
(set #golded_install_reqtools "Install Reqtools library ?")
(set #golded_install_reqtools_help (cat "\n"
" Reqtools ©1991-1996 Nico François. GoldED will \n"
" not start if the Reqtools requester library is \n"
" missing. \n"
))
(set #golded_install_presets "Installation of presets...")
(set #golded_hs_assign "\n Add HiSpeed assign to user-startup ?\n")
(set #golded_hs_assign_help (cat "\n"
" A HISPEED: assign is required if you want to run \n"
" HiSpeed without having to worry about the current\n"
" path (GoldED won't find HiSpeed if the assign is \n"
" missing). HiSpeed is a PCL printing program for \n"
" Laser/DeskJet printers. \n"
))
(set #golded_removing_temp_files "\nRemoving temporary files ...")
(set #golded_complete "\nInstallation complete.")
(set #install_presets "\nInstall standard presets ?\n")
(set #install_presets_menu "Menu" )
(set #install_presets_display "Display" )
(set #install_presets_keyboard "Keyboard")
(set #install_presets_toolbar "Toolbar" )
(set #install_presets_all "All" )
(set #install_presets_help (cat "\n"
" Standard configurations for menus, keyboard, etc.\n"
" are shipped with GoldED. These configurations are\n"
" not required if you update your existing GoldED \n"
" installation - you may continue using your old \n"
" configuration. However, you will not benefit from\n"
" updated material (e.g new menu translations) if \n"
" you skip installation of standard presets. \n"
" \n"
" We suggest that you do not name your own presets \n"
" standard.* so that standard presets can be \n"
" reinstalled safely every time you update GoldED. \n"
))
)
)
; -------------------------------- German strings ------------------------------
(if (= @language "deutsch")
(
(set #golded_introduction (cat "\n"
"GoldED 4 · Programmer's Editor \n"
"©1996 Dietmar Eilert \n"
"Alle Rechte vorbehalten. \n"
" \n"
"GoldED ist nicht frei vertreibbar. Bitte lesen \n"
"Sie die Lizenz-Datei, bevor Sie diese Software \n"
"installieren. Informationen für eine Installation \n"
"von GoldED 4 über GoldED 3 finden Sie in der \n"
"Readme-Datei. \n"
" \n"
"Dieses Script unterstützt eine Deinstallation. \n"
))
(set #golded_badkick "\n Sorry, dieses Paket benötigt mind. OS2.04.\n")
(set #golded_warn_userstartup "\nWARNUNG: S:USER-STARTUP NICHT GEFUNDEN")
(set #golded_error (cat
" Ein Fehler ist aufgetreten. Bitte informieren Sie\n"
" den Support (dietmar@tomate.tng.oche.de) NACHDEM \n"
" Sie die Intallation mit einer anderen Installer- \n"
" Version (Empfehlung: 1.24) wiederholt haben. \n"
" \n"
" Die folgende Information wird benötigt: Fehler- \n"
" Code (s.o.), Fehler-Text, abgearbeiteter Prozent-\n"
" satz (s. Fenstertitel) und die Log-Datei. Falls \n"
" vorhanden: ein SnoopDos-Report. Danke ! \n"
))
(set #golded_assign_found "\nGoldED-Installation entdeckt ...\n")
(set #golded_assign_found_help (cat "\n"
" NEU INSTALLIEREN \n"
" \n"
" Installiert GoldED in ein Verzeichnis Ihrer Wahl.\n"
" Eine vorhandene GoldED-Installation wird NICHT \n"
" entfernt, wenn Sie in ein anderes Verzeichnis in-\n"
" stallieren. Bei Installation in ein vorhandenes \n"
" GoldED-Verzeichnis werden vorhandene Dateien \n"
" dagegen überschrieben (Backups werden wunschweise\n"
" angelegt). \n"
" \n"
" UPDATE \n"
" \n"
" Installiert GoldED in das vorhandene GoldED-Ver- \n"
" zeichnis. Dort vorhandene Dateien werden über- \n"
" schrieben (Backups werden wunschweise angelegt). \n"
" \n"
" GOLDED ENTFERNEN \n"
" \n"
" Alle Dateien und Ordner, die für GoldED angelegt \n"
" wurden, werden entfernt. Ihre eigenen Dateien \n"
" werden ebenfalls gelöscht, wenn sie sich in einem\n"
" dieser Ordner befinden. \n"
))
(set #golded_new "Neu installieren")
(set #golded_update "Update (über bisherige Version installieren)")
(set #golded_remove "Deinstallation (GoldED entfernen)")
(set #golded_ask_amount "\nBitte wählen Sie die gewünschte Installation:\n")
(set #golded_ask_amount_help (cat "\n"
" Diese Auswahl bestimmt die Anzahl der Dateien, \n"
" die installiert werden. \n"
))
(set #golded_ask_amount_standard "Komplette Installation (2.2 MB)")
(set #golded_ask_amount_user "Benutzerdefiniert")
(set #golded_ask_amount_minimum "Minimalinstallation (575 K)")
(set #golded_remove_ged "\nGoldED-Assign entfernen ?\n")
(set #golded_remove_hs "\nHiSpeed-Assign entfernen ?\n")
(set #golded_remove_ed "\nQuickstarter-Referenz entfernen ?\n")
(set #golded_remove_gmk "\nGUIMake-Assign entfernen ?\n")
(set #golded_must_remove "Sie sollten den Assign/die Referenz entfernen lassen !")
(set #golded_removed "; (entfernt)")
(set #golded_lharc "\nEntpacken der Daten (kann einige Minuten dauern)")
(set #golded_lharcfail "\nEntpacken der Daten abgebrochen - Speicherplatz überprüfen")
(set #golded_installing_files "\nInstallieren der Dateien ...")
(set #golded_prepare_install "\nVorbereiten der Installation ...")
(set #golded_backup_mode "\nWählen Sie eine Backup-Strategie für Ihre alte GoldED-Installation:\n")
(set #golded_backup_mode_help (cat "\n"
" Hier können Sie bestimmen, wie alte Dateien be- \n"
" handelt werden, bevor sie durch neuere Versionen \n"
" überschrieben oder (falls als obsolet eingestuft)\n"
" gelöscht werden. \n"
))
(set #golded_backup_mode_none "Keine Backups")
(set #golded_backup_mode_selected "Konfiguration & Makros sichern")
(set #golded_backup_mode_all "Backup aller Dateien")
(set #golded_pref_icons "\nBevorzugten Icon-Typ wählen:\n")
(set #golded_medres " mittlere Auflösung (Seitenverhältnis 1:2)")
(set #golded_hires " hohe Auflösung (Seitenverhältnis 1:1)")
(set #golded_pref_icons_help (cat "\n"
" Wählen Sie die mittlere Auflösung, wenn für Ihre \n"
" Workbench ein Modus wie 640*200 eingestellt ist. \n"
" \n"
" Die hohe Auflösung sollte bei einem Höhen-/ \n"
" Breitenverhältnis von etwa 1:1 verwendet werden \n"
" (640*512 oder 800*600). \n"
))
(set #golded_toolbar_style "\nBevorzugte Werkzeugleiste:\n")
(set #golded_toolbar_4 "4 Farben")
(set #golded_toolbar_8 "8+ Farben")
(set #golded_toolbar_style_help (cat "\n"
" Beide Varianten können auf beliebigen Screens \n"
" verwendet werden. Der 4-Farb-Stil wurde für vier-\n"
" farbige Screen optimiert. Der 8-Farb-Stil wurde \n"
" für Screens mit acht oder mehr Farben (optimal: \n"
" 16 Farben) ausgelegt. \n"
))
(set #golded_where (cat
"Wo soll installiert werden ? In dem angegebenen \n"
"Verzeichnis wird der Ordner 'GoldED' erzeugt: \n"
))
(set #golded_where_help (cat "\n"
" Wählen Sie ein beliebiges Verzeichnis. Hauptver- \n"
" zeichnisse wie DH0: können auch benutzt werden. \n"
" In dem angegebenen Pfad wird ein Ordner 'GoldED' \n"
" samt Icon erzeugt werden. \n"
" \n"
" Das GoldED-Verzeichnis wird neben dem Editor auch\n"
" diverse begleitende Dateien aufnehmen. \n"
))
(set #golded_bad_path "Sorry, Installation in RAM-Disk nicht möglich")
(set #golded_drive_space (cat "\n"
" Diese Installation benötigt mindestens fünf MB \n"
" freien Platz auf dem Zieldatenträger. Bitte \n"
" machen Sie diesen Platz verfügbar und starten Sie\n"
" die Installation dann neu. \n"
))
(set #golded_gold_lib "Installation der GoldED-Library ...")
(set #golded_gold_lib_help (cat "\n"
"Diese Library wird nur für die unregistrierte \n"
"Version benötigt. Registrierte Benutzer erhalten \n"
"ersatzweise ein Keyfile. \n"
))
(set #golded_select_optional (cat "\n"
"Bitte wählen Sie, welche der folgenden GoldED- \n"
"Komponenten installiert werden sollen (schon in- \n"
"stallierte Komponenten werden ggf. entfernt): \n"
))
(set #golded_select_optional_help (cat "\n"
" Sie sollten keine der folgenden Komponenten de- \n"
" aktivieren: \n"
" \n"
" SYNTAX-PARSER (80 K) \n"
" \n"
" Diverse Syntax-Parser (verantwortlich für die \n"
" farbkodierte Textdarstellung: Sourcecodes, HTML, \n"
" E-Mail, ...) \n"
" \n"
" HISPEED (300 K) \n"
" \n"
" Drucker-Utility für Laserdrucker, DeskJets und \n"
" andere PCL-Drucker. \n"
" \n"
" Sie können jede der folgenden Komponenten ohne \n"
" Auswirkungen auf GoldED entfernen lassen: \n"
" \n"
" AppIcon-STARTER (6 K) \n"
" \n"
" Erzeugt ein Drag & Drop-Icon auf der Workbench: \n"
" GoldED öffnet Texte, die auf dieses Icon gezogen \n"
" werden. \n"
" \n"
" RECOVER (6 K) \n"
" \n"
" Kann nach einem Systemabsturz den zuletzt be- \n"
" arbeiteten Text rekonstruieren. \n"
" \n"
" BESTELLPROGRAMM (19 K) \n"
" \n"
" Druckt Bestellformular für GoldED. \n"
" \n"
" API CLIENTS (16 K) \n"
" \n"
" API-Erweiterungen (Beispiele) \n"
" \n"
" DEVELOPER-MATERIAL (520 K) \n"
" \n"
" Beispiel-Sourcecodes (Syntax-Scanner, Quick- \n"
" Starter, ...). \n"
" \n"
" ANLEITUNG (290 - 350 K) \n"
" \n"
" Anleitung (diverse Sprachen). AmigaGuide-Format. \n"
" Hilfe zu den Menupunkten ist nur verfügbar, wenn \n"
" eine Anleitung installiert wird, die der für \n"
" GoldED ausgewählten Sprache entspricht. \n"
" \n"
" QUICKSTARTER (5 K) \n"
" \n"
" Schnelles GoldED-Frontend: GoldED-Aktivator. \n"
" \n"
" UNLOCK (1 K) \n"
" \n"
" Utility, das die Benutzeroberfläche von GoldED \n"
" freischalten kann, wenn ein fehlerhaftes ARexx- \n"
" Makro dies versäumt. \n"
))
(set #golded_select_presets "Konfigurationsdateien")
(set #golded_select_parsers "Syntax-Parser" )
(set #golded_select_hispeed "HiSpeed" )
(set #golded_select_appicon "AppIcon-Starter" )
(set #golded_select_recover "Recover-Utility" )
(set #golded_select_order "Bestellprogramm" )
(set #golded_select_api "API-Clients" )
(set #golded_select_sources "Sourcecodes" )
(set #golded_select_manual_e "Anleitung (englisch)" )
(set #golded_select_manual_d "Anleitung (deutsch)" )
(set #golded_select_quickstarter "QuickStarter" )
(set #golded_select_unlock "UnLock-Utility" )
(set #golded_what_catalog "\n Welche Kataloge sollen installiert werden ?\n")
(set #golded_what_catalog_help (cat "\n"
" Diese Daten werden vom Betriebssystem benötigt, \n"
" um GoldED in verschiedenen Sprachen ablaufen zu \n"
" lassen (dazu ist mindestens OS2.1 erforderlich). \n"
" \n"
" Menus werden nicht automatisch lokalisiert, da \n"
" sie konfigurierbar sind und nicht direkt in den \n"
" Editor eingebaut wurden - dazuu später mehr. \n"
))
(set #golded_update_keyfile (cat "\n"
"Sie besitzen schon ein Keyfile. Soll das vor- \n"
"handene Keyfile ersetzt werden ? \n"
))
(set #golded_update_keyfile_help (cat "\n"
" Lassen Sie ein vorhandenes GoldED Keyfile NICHT \n"
" ersetzen, wenn Sie nicht genau wissen, was Sie \n"
" tun. Sinnvolle Anwendung: Sie haben GoldED er- \n"
" worben und möchten nun eine Raubkopie entfernen \n"
" lassen. \n"
))
(set #golded_update_keyfile_overwrite "Keyfile ersetzen")
(set #golded_update_keyfile_keep "Altes Keyfile beibehalten")
(set #golded_updating_icons "\nAktualisieren der Icons ...")
(set #golded_what_manuals "\n Welche Anleitungen sollen installiert werden ?\n")
(set #golded_what_manuals_help (cat "\n"
" Jede Anleitung (AmigaGuide-Datei) belegt etwa \n"
" 300K Platz auf Ihrer Festplatte \n"
))
(set #golded_add_ged_assign "\nGoldED-Assign einrichten ?\n")
(set #golded_add_ged_assign_help (cat "\n"
" Der Editor benötigt diesen Assign zum Auffinden \n"
" diverser Dateien. \n"
))
(set #golded_quickname " Namen für Schnellstarter wählen:")
(set #golded_quickname_help (cat "\n"
" Der Schnellstarter ist ein kleiner (5 KB) Vorsatz\n"
" für GoldED, der benutzt werden kann, als ob er \n"
" selbst ein Editor wäre. Sie könnten so 'ed text' \n"
" eingeben, um die Datei 'text' zu bearbeiten, wenn\n"
" der Name des Quickstarters ED lautet. Der Vor- \n"
" teil des Schnellstarters: Er kann einen schon \n"
" laufenden Editor ansprechen und diesem die \n"
" Aufgabe übergeben. Dies geschieht sehr schnell. \n"
" Weiterhin erlaubt er es, GoldED von jedem be- \n"
" liebigen Verzeichnis aus aufzurufen oder den \n"
" Editor von der Shell abzukoppeln, ohne daß RUN \n"
" eingegeben werden muß. \n"
" \n"
" Namensvorgabe ist ED; damit würde der originale \n"
" ED Ihrer Workbench ersetzt. Es kann natürlich \n"
" jeder beliebige andere Name benutzt werden. \n"
))
(set #golded_place_quick (cat "\n"
" Wählen Sie ein Verzeichnis für den Quickstarter. \n"
" Das gewählte Verzeichnis sollte sich im Befehls- \n"
" pfad befinden: \n"
))
(set #golded_place_quick_help (cat "\n"
" Sie sollten eines der folgenden Verzeichnisse be-\n"
" nutzen, um den Quickstarter durch einfache \n"
" Namensangabe von jedem Verzeichnis aus aufrufen \n"
" zu können: \n"
" \n"
" SYS:C, SYS:TOOLS, SYS:UTILITIES oder SYS:SYSTEM \n"
" \n"
" Haben Sie den Starter ED genannt, so sollte er \n"
" entweder in 'C:' plaziert werden oder der dort \n"
" vorhandene ED gelöscht werden, um eindeutige Ver-\n"
" hältnisse zu schaffen. \n"
))
(set #golded_quick_resident "\n Schnellstarter resident machen ?\n")
(set #golded_quick_resident_help (cat "\n"
" Der Quickstarter sollte resident gemacht werden, \n"
" da er dann noch schneller ansprechbar ist. Der \n"
" damit verbundene Speicherverbrauch ist vernach- \n"
" lässigbar (5 KB). \n"
))
(set #golded_saving_files "\nBackups anlegen (golded:obsolete) ...")
(set #golded_what_menu "\n Sprache für Menu auswählen: \n")
(set #golded_what_menu_help (cat "\n"
" GoldED ist lokalisiert und benutzt die Locale- \n"
" Library des Betriebssystems (OS3), um die Re- \n"
" questertexte in der bevorzugten Sprache darzu- \n"
" stellen. Menus sind nicht Bestandteil von GoldED \n"
" und werden deshalb auch nicht automatisch in der \n"
" Sprache angepaßt. Wählen Sie deshalb bitte jetzt \n"
" die gewünschte Übersetzung. \n"
))
(set #golded_screen "\n Gewünschter Bildschirmmodus:\n")
(set #golded_screen_help (cat "\n"
" Einstellung des Bildschirmmodus vor dem ersten \n"
" Programmstart. Wir raten zu einem eigenen Screen,\n"
" da GoldED dann schneller arbeitet und schöner \n"
" aussieht (bei Rechnern mit nur 512K Chip-RAM ist \n"
" dafür aber möglicherweise zu wenig Speicher vor- \n"
" handen). \n"
))
(set #golded_screen_wb "Workbench-Screen")
(set #golded_screen_ntsc_i "NTSC interlaced (640*400)")
(set #golded_screen_pal_i "PAL interlaced (640*512)")
(set #golded_look_feel "\nLook & Feel\n")
(set #golded_look_feel_help (cat "\n"
" Vorschlag: Verwenden Sie zwei Farben, wenn Ihr \n"
" Rechner langsam ist (68000-CPU), vier Farben \n"
" für Rechner mit 68030/68030-CPU (etwa A1200) oder\n"
" einen beliebigen Modus für schnelle Rechner mit \n"
" 68040/68060-CPU. \n"
))
(set #golded_mode_blue "Blau (2 Farben)")
(set #golded_mode_stone "Modern (4 Farben)")
(set #golded_mode_desktop "Desktop (8 Farben)")
(set #golded_mode_designer "Designer (16 Farben)")
(set #golded_what_proglang "\n Bevorzugte Programmiersprache:\n")
(set #golded_what_proglang_other "andere")
(set #golded_what_proglang_none "keine")
(set #golded_what_proglang_help (cat "\n"
" Diese Auswahl kontrolliert die Vorinstallation \n"
" sprachspezifischer Features (z.B. Syntax-Parser).\n"
" Prinzipiell werden alle Dateien installiert, aber\n"
" nur der Support für die hier gewählten Sprache \n"
" wird in Ihre Grundkonfiguration aufgenommen. \n"
))
(set #golded_install_reqtools "Reqtools-Library installieren ?")
(set #golded_install_reqtools_help (cat "\n"
" Reqtools ©1991-1996 Nico François. GoldED wird \n"
" nicht starten, wenn die Reqtools-Library nicht \n"
" verfügbar ist. \n"
))
(set #golded_install_presets "Installation der Konfigurationsdateien...")
(set #golded_hs_assign "\n HiSpeed-Assign einrichten ?\n")
(set #golded_hs_assign_help (cat "\n"
" Dieser Assign wird benötigt, wenn HiSpeed aus \n"
" jedem beliebigen Verzeichnis heraus aufrufbar \n"
" soll. Ohne diesen Assign kann HiSpeed nicht durch\n"
" GoldED gestartet werden. HiSpeed ist ein Druck- \n"
" programm für PCL-Drucker (Laser, Deskjet). \n"
))
(set #golded_removing_temp_files "\nEntfernen temporärer Dateien ...")
(set #golded_complete (cat "\nInstallation abgeschlossen."))
(set #install_presets "\nStandardeinstellungen installieren ?\n")
(set #install_presets_menu "Menu" )
(set #install_presets_display "Anzeige" )
(set #install_presets_keyboard "Tastatur")
(set #install_presets_toolbar "Toolbar" )
(set #install_presets_all "Alle" )
(set #install_presets_help (cat "\n"
" Zusammen mit GoldED werden Standardeinstellungen \n"
" für Menus, Tastaturbelegung, etc. ausgeliefert. \n"
" Eine erneute Installation dieses Materials ist \n"
" nicht erforderlich, wenn GoldED schon einmal \n"
" installiert wurde: Sie können die vorhandenen \n"
" Einstellungen weiter verwenden. Allerdings ent- \n"
" gehen Ihnen dann möglicherweise aktualisierte \n"
" Komponenten (beispielsweise eine neue Menü- \n"
" übersetzung). \n"
" \n"
" Tip: Nennen Sie die eigenen Konfigurationen nicht\n"
" standard.*. Dann können die Standardeinstellungen\n"
" mit jedem Update neu installiert werden, ohne daß\n"
" eigenes Material davon berührt wird. \n"
))
)
)
; --------------------------- Prepare installation -----------------------------
(onerror (
(if (> @ioerr 0)
(message (cat "\n ERROR CODE: " @ioerr "\n\n" #golded_error))
)
))
; initialize return code
(textfile (dest "env:GOLDEDINSTALL") (append "INCOMPLETE"))
(if (not (exists "prefs:" (noreq)))
(makeassign "prefs" "sys:prefs")
)
; sure we are running under a 2.04 ROM ?
(if (< (/ (getversion) 65536) 37)
(
(message #golded_badkick)
(textfile (dest "env:GOLDEDINSTALL") (append "ERROR"))
(exit (quiet))
)
)
; -------------------------------- Constants -----------------------------------
(set install_mode_new 0)
(set install_mode_update 1)
(set install_mode_remove 2)
(set install_type_maximum 0)
(set install_type_user 1)
(set install_type_minimum 2)
(set backup_mode_none 0)
(set backup_mode_ask 1)
(set screen_workbench 0)
(set component_parser 1)
(set component_hispeed 2)
(set component_appicon 4)
(set component_recover 8)
(set component_order 16)
(set component_api 32)
(set component_sources 64)
(set component_manual_e 128)
(set component_manual_d 256)
(set component_quickstarter 512)
(set component_unlock 1024)
(set component_all (+ component_parser component_hispeed component_appicon component_recover component_order component_api component_sources component_manual_e component_manual_d component_quickstarter component_unlock))
(set install_presets_menu 1 )
(set install_presets_display 2 )
(set install_presets_keyboard 4 )
(set install_presets_toolbar 8 )
(set install_presets_all 16)
(set install_presets_again 0)
(set install_presets_keep 1)
; ----------------------------- Welcome user -----------------------------------
(message #golded_introduction)
(welcome)
(if (exists "GoldED:" (noreq))
(
(set install_path (expandpath "golded:/"))
(set install_mode
(askchoice
(prompt #golded_assign_found)
(help #golded_assign_found_help)
(default 1)
(choices
#golded_new
#golded_update
#golded_remove
)
)
)
)
; GoldED not yet installed
(set install_mode install_mode_new )
)
; ---------------------------- Deinstall GoldED --------------------------------
(if (= install_mode install_mode_remove)
(
(run "assign >NIL: oldged: GoldED:/")
; assigns have to be removed first
(run "assign >NIL: HiSpeed: remove")
(run "assign >NIL: GoldED: remove")
(run "assign >NIL: GUIMake: remove")
(run "delete >NIL: oldged:GoldED all quiet force")
(run "delete >NIL: oldged:GoldED.info")
(if (exists "locale:" (noreq))
(
(delete "locale:catalogs/deutsch/GoldED.catalog" )
(delete "locale:catalogs/français/GoldED.catalog" )
(delete "locale:catalogs/italiano/GoldED.catalog" )
(delete "locale:catalogs/nederlands/GoldED.catalog")
(delete "locale:catalogs/svenska/GoldED.catalog" )
(delete "locale:catalogs/deutsch/SpellIT.catalog" )
(delete "locale:catalogs/français/SpellIT.catalog" )
(delete "locale:catalogs/deutsch/HiSpeed.catalog" )
(delete "locale:catalogs/français/HiSpeed.catalog" )
)
)
(run "delete >NIL: prefs:presets/GED_#? all quiet")
(run "delete >NIL: prefs:presets/GoldED all quiet")
(run "delete >NIL: envarc:GoldED all quiet")
(run "delete >NIL: env:GoldED all quiet")
(run "delete >NIL: envarc:HiSpeed all quiet")
(run "delete >NIL: env:HiSpeed all quiet")
(run "delete >NIL: fonts:GoldED all quiet")
(delete "s:GUIMake.pref")
(delete "libs:golded.library")
(startup "GoldED"
(prompt #golded_remove_ged)
(help #golded_must_remove)
(command #golded_removed)
)
(startup "HiSpeed"
(prompt #golded_remove_hs)
(help #golded_must_remove)
(command #golded_removed)
)
(startup "GED_quick"
(prompt #golded_remove_ed)
(help #golded_must_remove)
(command #golded_removed)
)
(startup "GUIMake"
(prompt #golded_remove_gmk)
(help #golded_must_remove)
(command #golded_removed)
)
(run "assign >NIL: oldged: remove")
; set return code
(textfile (dest "env:GOLDEDINSTALL") (append "REMOVED"))
(exit (quiet))
)
)
; choose destination directotry
(if (= install_mode install_mode_new)
(
(set install_path
(askdir
(prompt #golded_where)
(help #golded_where_help)
(default "SYS:TOOLS")
)
)
)
)
; ask for installation type
(set install_type
(askchoice
(prompt #golded_ask_amount)
(help #golded_ask_amount_help)
(default 0)
(choices
#golded_ask_amount_standard
#golded_ask_amount_user
#golded_ask_amount_minimum
)
)
)
; ------------------------ Prepare destination directory -----------------------
; create destination directory, create GoldED: assign
(if (= install_mode install_mode_update)
(
(set install_path (expandpath "golded:/"))
(set install_dir (expandpath "golded:" ))
(set backup_mode backup_mode_ask)
)
(
(set install_dir (tackon install_path "GoldED"))
(if (exists install_dir)
(
(set backup_mode backup_mode_ask)
(if (exists (tackon install_path "GoldED.info"))
(makedir install_dir)
(makedir install_dir (infos))
)
)
(
(set backup_mode backup_mode_none)
(makedir install_dir (infos))
)
)
(makeassign "GoldED" install_dir)
)
)
; ------------------------------ Uncompress files ------------------------------
(if (or (= golded_install_debug 0) (not (exists "golded:goldeddata")))
(
(working #golded_lharc)
; lhfasfx is somewhat fussy about missing "/"'s - we use the assign instead
(run "install.run golded:")
(if (not (exists "golded:goldeddata"))
(
(message #golded_lharcfail)
(exit (quiet))
)
)
)
)
; ------------------------------- Install libs ---------------------------------
(if (exists "golded:libs/reqtools.library")
(
(copylib
(prompt #golded_install_reqtools)
(help #golded_install_reqtools_help)
(source "golded:libs/reqtools.library")
(dest "libs:")
(confirm)
)
)
)
; ------------------------------- Start presentation ---------------------------
; run Describe presentation
(if (= @language "deutsch")
(run "golded:goldeddata/installdata/bin/sync SCRIPT=INSTALL_D.BAT")
(run "golded:goldeddata/installdata/bin/sync SCRIPT=INSTALL_E.BAT")
)
; --------------------------- Check existing installation ----------------------
(if (= install_mode install_mode_update)
; upgrading from GoldED 4 ?
(if (exists "golded:registry")
(
(set install_optional (+ component_parser component_hispeed))
(if (exists "golded:appicon" ) (set install_optional (+ install_optional component_appicon )))
(if (exists "golded:recover" ) (set install_optional (+ install_optional component_recover )))
(if (exists "golded:order" ) (set install_optional (+ install_optional component_order )))
(if (exists "golded:api/rexx.api" ) (set install_optional (+ install_optional component_api )))
(if (exists "golded:developer" ) (set install_optional (+ install_optional component_sources )))
(if (exists "golded:manual" ) (set install_optional (+ install_optional component_manual_e )))
(if (exists "golded:anleitung" ) (set install_optional (+ install_optional component_manual_d )))
(if (exists "golded:ed" ) (set install_optional (+ install_optional component_quickstarter)))
(if (exists "golded:unlock" ) (set install_optional (+ install_optional component_unlock )))
)
(set install_optional component_all)
)
(set install_optional component_all)
)
(if (exists "golded:golded.info")
(if (> (getsize "golded:golded.info") 800)
(set golded_icon_set 1)
(set golded_icon_set 0)
)
(set golded_icon_set 1)
)
(if (exists "golded:toolbar/standard/save")
(if (> (getsize "golded:golded.info") 256)
(set golded_toolbar_style 1)
(set golded_toolbar_style 0)
)
(set golded_toolbar_style 1)
)
; --------------------------- Backup important files ---------------------------
(if (exists "golded:obsolete")
(run "delete golded:obsolete all quiet")
)
(if (= backup_mode backup_mode_ask)
(
(if (exists "golded:config")
(set backup_default 2)
(set backup_default 1)
)
(set backup_mode
(askchoice
(prompt #golded_backup_mode)
(help #golded_backup_mode_help)
(default backup_default)
(choices
#golded_backup_mode_none
#golded_backup_mode_selected
#golded_backup_mode_all
)
)
)
)
)
(if (not (= backup_mode backup_mode_none))
(
(makedir "golded:obsolete")
(if (= backup_mode 2)
(
(working #golded_saving_files)
(copyfiles
(source "golded:" )
(dest "golded:obsolete" )
(pattern "~(goldeddata|obsolete)" )
(nogauge)
)
)
(if (or (exists "golded:arexx") (exists "golded:registry") (exists "golded:config"))
(
(working #golded_saving_files)
(copyfiles
(source "golded:" )
(dest "golded:obsolete" )
(pattern "(registry|arexx|config)" )
(nogauge)
)
)
)
)
)
)
; --------------------------- Remove obsolete files ----------------------------
(run "delete golded:presets all quiet")
(run "delete golded:config all quiet")
; remove obsolete files
(delete "golded:golded.guide" (infos))
(delete "golded:GEDApp" (infos))
(delete "golded:Hi!" (infos))
(delete "golded:Tools/Unlock.info" (infos))
(delete "golded:rx")
(delete "golded:api/history")
(delete "golded:api/readme")
(delete "golded:api/readme.info")
(delete "golded:api/dock/dock1.prefs")
(delete "golded:api/dock/dock2.prefs")
(delete "golded:macros/test.ged")
(delete "golded:Anleitung")
(delete "golded:Manual")
(delete "golded:Manuel")
(delete "golded:History")
(delete "golded:keyfile/keyfile")
(delete "libs:golded.library")
; remove obsolete icons
(delete "golded:arexx.info" )
(delete "golded:menu.info" )
(delete "golded:manuel.info" )
(delete "golded:tools/hispeed.info" )
(delete "golded:tools/ed.info" )
(delete "golded:tools/gedrefs.info" )
(delete "golded:tools/recover.info" )
(delete "golded:tools/gedapp.info" )
(delete "golded:tools/prjsource.info")
(delete "golded:tools/unlock.info" )
(delete "golded:tools/geddock.info" )
(delete "golded:tools/gedscan.info" )
(delete "golded:tools/menu.info" )
(delete "golded:api/reversed.info" )
(delete "golded:api/nextstep.info" )
(delete "golded:api/dock.info" )
(delete "golded:tools/source.info" )
(delete "golded:tools/scanner.info" )
; remove obsolete catalogs
(if (exists "locale:" (noreq)) (
(delete "locale:catalogs/deutsch/GoldED.catalog")
(delete "locale:catalogs/français/GoldED.catalog")
(delete "locale:catalogs/italiano/GoldED.catalog")
(delete "locale:catalogs/nederlands/GoldED.catalog")
(delete "locale:catalogs/svenska/GoldED.catalog")
(delete "locale:catalogs/deutsch/HiSpeed.catalog")
(delete "locale:catalogs/français/HiSpeed.catalog")
))
; remove obsolete drawers
(run "delete golded:config all quiet")
(run "delete golded:macros all quiet")
(run "delete golded:presets all quiet")
(run "delete golded:syntax/developer all quiet")
(run "delete golded:menu all quiet")
(run "delete golded:tools/menu all quiet")
(run "delete golded:tools/scanner all quiet")
(run "delete golded:tools/source all quiet")
(run "delete golded:tools/ed all quiet")
(run "delete golded:tools/gedrefs all quiet")
(run "delete golded:tools/recover all quiet")
(run "delete golded:tools/gedapp all quiet")
(run "delete golded:tools/prjsource all quiet")
(run "delete golded:tools/unlock all quiet")
(run "delete golded:tools/geddock all quiet")
(run "delete golded:tools/gedscan all quiet")
(run "delete golded:tools/hispeed/keyfile all quiet")
(run "delete env:golded all quiet")
(run "delete envarc:golded all quiet")
(run "delete s:golded all quiet")
(run "delete golded:tools/edsource all quiet")
(run "delete prefs:presets/GED_#? all quiet")
(run "delete golded:api/rexx all quiet")
(run "delete golded:api/spell all quiet")
(run "delete golded:api/reversed all quiet")
(run "delete golded:api/nextstep all quiet")
(run "delete golded:api/dock all quiet")
(run "delete golded:api/include all quiet")
(run "delete golded:arexx/backup all quiet")
; ----------------------------- Install all files ------------------------------
(if (or (= golded_install_debug 0) (not (exists "golded:golded")))
(
(if (= install_type install_type_user)
(working #golded_prepare_install)
(working #golded_installing_files)
)
(copyfiles
(source "golded:goldeddata")
(dest "golded:" )
(pattern "~(installdata)" )
(nogauge)
)
)
)
(copyfiles
(source "golded:tools/hispeed/HiSpeed")
(dest "golded:")
(nogauge)
)
(copyfiles
(source "golded:goldeddata/installdata/fonts" )
(dest "fonts:")
(all)
(nogauge)
)
(if (not (exists "golded:registry"))
(makedir "golded:registry")
)
(if (not (exists "golded:registry/presets"))
(makedir "golded:registry/presets")
)
(if (not (exists "golded:xref"))
(makedir "golded:xref")
)
(if (not (exists "golded:recordings"))
(makedir "golded:recordings")
)
(if (not (exists "golded:sessions"))
(makedir "golded:sessions")
)
; ------------------------------ Install keyfile -------------------------------
(if (exists "keyfile/golded.keyfile")
(
(if (exists "golded:keyfile/golded.keyfile")
(set install_keyfile
(askchoice
(prompt #golded_update_keyfile)
(help #golded_update_keyfile_help)
(default 0)
(choices
#golded_update_keyfile_keep
#golded_update_keyfile_overwrite
)
)
)
(set install_keyfile 1)
)
)
; just a demo
(set install_keyfile 0)
)
(if (= install_keyfile 1)
(
; just in case somebody saved the keyfile as golded:keyfile (supposed to be a drawer)
(run "delete golded:keyfile")
(if (not (exists "golded:keyfile"))
(makedir "golded:keyfile")
)
(copyfiles
(source "keyfile/golded.keyfile")
(dest "golded:keyfile")
)
)
)
; ------------------------------- Install icons --------------------------------
(if (= install_mode install_mode_new)
(set golded_icon_set
(askchoice
(prompt #golded_pref_icons)
(help #golded_pref_icons_help)
(choices
#golded_medres
#golded_hires
)
(default golded_icon_set)
)
)
)
(working #golded_updating_icons)
; install small (med-res) icons
(if (= golded_icon_set 0)
(
(copyfiles
(source "golded:goldeddata/installdata/icons/golded")
(dest "golded:")
(all)
(nogauge)
)
)
)
; create GoldED ARexx macro icons
(if (= golded_icon_set 0)
(run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:arexx ICON=golded:goldeddata/installdata/icons/script/medres DX=100 DY=40 COLUMNS=5")
(run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:arexx ICON=golded:goldeddata/installdata/icons/script/hires DX=100 DY=45 COLUMNS=5")
)
; create HiSpeed Arexx macro icons
(if (= golded_icon_set 0)
(run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:tools/hispeed/arexx ICON=golded:goldeddata/installdata/icons/script/medres DX=90 DY=40 COLUMNS=5")
(run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:tools/hispeed/arexx ICON=golded:goldeddata/installdata/icons/script/hires DX=95 DY=45 COLUMNS=5")
)
; ------------------------------ Select components ----------------------------
(if (= install_type install_type_maximum)
(set install_optional component_all)
)
(if (= install_type install_type_minimum)
(set install_optional 0)
)
(if (= install_type install_type_user)
(set install_optional
(askoptions
(prompt #golded_select_optional)
(help #golded_select_optional_help)
(default install_optional)
(choices
#golded_select_parsers
#golded_select_hispeed
#golded_select_appicon
#golded_select_recover
#golded_select_order
#golded_select_api
#golded_select_sources
#golded_select_manual_e
#golded_select_manual_d
#golded_select_quickstarter
#golded_select_unlock
)
)
)
)
; ----------------------------- Remove unwanted files --------------------------
(if (= 0 (bitand install_optional component_sources))
(
(run "delete golded:developer all quiet")
(run "delete golded:tools/cat all quiet")
(delete "golded:tools/cat.info")
)
)
(if (= 0 (bitand install_optional component_parser))
(run "delete golded:syntax/#? all quiet")
)
(if (= 0 (bitand install_optional component_hispeed))
(
(if (exists "hispeed:" (noreq))
(run "assign HiSpeed: remove")
(startup "HiSpeed"
(prompt #golded_remove_hs)
(help #golded_must_remove)
(command #golded_removed)
)
)
(delete "golded:hispeed")
(run "delete golded:tools/hispeed#? all quiet")
)
)
(if (= 0 (bitand install_optional component_appicon))
(delete "golded:appicon")
)
(if (= 0 (bitand install_optional component_recover))
(delete "golded:recover")
)
(if (= 0 (bitand install_optional component_order))
(delete "golded:order")
)
(if (= 0 (bitand install_optional component_api))
(run "delete golded:api/(dock|rexx|spell|startup|mirror)#? all quiet")
)
(if (= 0 (bitand install_optional component_manual_e))
(delete "golded:manual")
)
(if (= 0 (bitand install_optional component_manual_d))
(delete "golded:anleitung")
)
(if (= 0 (bitand install_optional component_quickstarter))
(delete "golded:ed")
)
(if (= 0 (bitand install_optional component_unlock))
(delete "golded:unlock")
)
; --------------------------------- Arrange icons ------------------------------
; arrange icons
(run "golded:goldeddata/installdata/bin/moveicons QUIET GAP FILES=GoldED ED AppIcon Anleitung Manual Manuel DIR=golded:")
(run "golded:goldeddata/installdata/bin/moveicons QUIET GAP FILES=HiSpeed Recover Unlock Order DIR=golded:")
(run "golded:goldeddata/installdata/bin/moveicons DIR=golded:tools GRID DX=0 DY=27 COLUMNS=1")
(run "golded:goldeddata/installdata/bin/moveicons DIR=golded:api GRID DX=0 DY=45 COLUMNS=1")
; ---------------------------------- QuickStarter ------------------------------
(if (bitand install_optional component_quickstarter)
(
(set quick_starter_name (askstring
(prompt #golded_quickname)
(help #golded_quickname_help)
(default "ED")
))
(if (= quick_starter_name "")
(set quick_starter_name "ED")
(set quick_starter_name (fileonly quick_starter_name))
)
(set quick_starter_dir (askdir
(prompt #golded_place_quick)
(help #golded_place_quick_help)
(default "C:")
))
; patch quickstarter to allow it running GoldED without GOLDED: assign
(run (cat "golded:goldeddata/installdata/bin/patch file=golded:ed find=$GOLDED INSERT=\"" (expandpath "golded:") "\""))
(copyfiles
(source "golded:ed")
(dest quick_starter_dir)
(newname quick_starter_name)
(nogauge)
)
(set quickstarter (tackon quick_starter_dir quick_starter_name))
)
)
; ----------------------------- Standard configuration -------------------------
(if (= @language "english" ) (set menu_language 0))
(if (= @language "deutsch" ) (set menu_language 1))
(if (= @language "italiano") (set menu_language 2))
(if (exists "golded:registry/registry")
(
(set install_presets
(askoptions
(prompt #install_presets)
(help #install_presets_help)
(choices
#install_presets_menu
#install_presets_display
#install_presets_keyboard
#install_presets_toolbar
#install_presets_all
)
(default 0)
)
)
)
(
(copyfiles
(source "golded:goldeddata/installdata/registry/registry")
(dest "golded:registry")
(nogauge)
)
(set install_presets install_presets_all)
)
)
; install standard presets ?
(if (<> install_presets 0)
(
(if (<> 0 (bitand install_presets install_presets_all))
(copyfiles
(source "golded:goldeddata/installdata/registry/presets/standard")
(dest "golded:registry/presets")
(all)
(nogauge)
)
)
; install menu
(if (or (bitand install_presets install_presets_menu) (bitand install_presets install_presets_all))
(
(set menu_language (askchoice
(prompt #golded_what_menu)
(help #golded_what_menu_help)
(choices
"English"
"Deutsch"
"Italiano"
"Français"
)
(default menu_language)
))
(if (= menu_language 0) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.e"))
(if (= menu_language 1) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.d"))
(if (= menu_language 2) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.i"))
(if (= menu_language 3) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.f"))
(copyfiles
(source menu_preset)
(dest "golded:registry/presets")
(newname "standard.menu")
(nogauge)
)
)
)
; toolbar
(if (or (bitand install_presets install_presets_toolbar) (bitand install_presets install_presets_all))
(
(set golded_toolbar_style
(askchoice
(prompt #golded_toolbar_style)
(help #golded_toolbar_style_help)
(choices
#golded_toolbar_4
#golded_toolbar_8
)
(default golded_toolbar_style)
)
)
(if (not (exists "golded:toolbar"))
(makedir "golded:toolbar")
)
; install 4-color toolbar images
(copyfiles
(source "golded:goldeddata/installdata/toolbar4")
(dest "golded:toolbar")
(all)
(nogauge)
)
; install 16-color toolbar images
(if (= golded_toolbar_style 1)
(copyfiles
(source "golded:goldeddata/installdata/toolbar16")
(dest "golded:toolbar")
(all)
(nogauge)
)
)
(if (= menu_language 0) (set gad_preset "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.e"))
(if (= menu_language 1) (set gad_preset "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.d"))
(if (= menu_language 2) (set gad_preset "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.i"))
(if (= menu_language 3) (set gad_preset "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.f"))
(copyfiles
(source gad_preset)
(dest "golded:registry/presets")
(newname "standard.gadgets")
(nogauge)
)
)
)
; display
(if (or (bitand install_presets install_presets_display) (bitand install_presets install_presets_all))
(
(set screen_mode (askchoice
(prompt #golded_screen)
(help #golded_screen_help)
(choices
#golded_screen_wb
#golded_screen_ntsc_i
#golded_screen_pal_i
)
(default screen_workbench)
))
(if (= screen_mode screen_workbench)
(copyfiles
(source "golded:goldeddata/installdata/registry/presets/special/standard.display.wb")
(dest "golded:registry/presets")
(newname "standard.display")
(nogauge)
)
(
(set screen_layout (askchoice
(prompt #golded_look_feel)
(help #golded_look_feel_help)
(default 1)
(choices
#golded_mode_blue
#golded_mode_stone
#golded_mode_desktop
#golded_mode_designer
)
))
(if (= screen_layout 0) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.2"))
(if (= screen_layout 1) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.4"))
(if (= screen_layout 2) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.8"))
(if (= screen_layout 3) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.16"))
(if (= screen_mode 1)
(set preset_display (cat preset_display "n"))
(set preset_display (cat preset_display "p"))
)
(set preset_display (cat preset_display "i"))
(copyfiles
(source preset_display)
(dest "golded:registry/presets")
(newname "standard.display")
(nogauge)
)
)
)
; update display preset to use system's default fonts
(run "golded:goldeddata/installdata/bin/installfont FILE=golded:registry/presets/standard.display")
)
)
; keyboard
(if (or (bitand install_presets install_presets_keyboard) (bitand install_presets install_presets_all))
(copyfiles
(source "golded:goldeddata/installdata/registry/presets/special/standard.keyboard")
(dest "golded:registry/presets")
(nogauge)
)
)
)
)
; ------------------------------ Modify user-startup -------------------------
(if (not (exists "s:user-startup"))
(message #golded_warn_userstartup)
)
(startup "GoldED"
(prompt #golded_add_ged_assign)
(help #golded_add_ged_assign_help)
(command ("ASSIGN >NIL: GOLDED: %s" install_dir))
)
(if (bitand install_optional component_quickstarter)
(startup "GED_quick"
(prompt #golded_quick_resident)
(help #golded_quick_resident_help)
(command ("resident %s pure" quickstarter))
)
)
(if (bitand install_optional component_hispeed)
(
(startup "HiSpeed"
(prompt #golded_hs_assign)
(help #golded_hs_assign_help)
(command ("ASSIGN >NIL: HISPEED: GOLDED:TOOLS/HISPEED"))
)
(makeassign "HiSpeed" "golded:tools/hispeed")
)
)
; ------------------------------------- Done -----------------------------------
; stop Describe presentation
(run "golded:goldeddata/installdata/bin/sync COMMAND=QUIT")
(working #golded_removing_temp_files)
(if (= golded_install_debug 0)
(run "delete golded:goldeddata#? all quiet")
)
(complete 100)
(if (= install_mode install_mode_remove)
(exit (quiet))
(
; set return code
(textfile (dest "env:GOLDEDINSTALL") (append "OK"))
(exit #golded_complete)
)
)